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NATIONAL  BUREAU  OF  STANDARDS 

The  National  Bureau  of  Standards1  was  established  by  an  act  of  Congress  March  3, 
1901.  The  Bureau's  overall  goal  is  to  strengthen  and  advance  the  Nation's  science  and 
technology  and  facilitate  their  effective  application  for  public  benefit.  To  this  end,  the 
Bureau  conducts  research  and  provides:  (1)  a  basis  for  the  Nation's  physical  measure- 
ment system,  (2)  scientific  and  technological  services  for  industry  and  government,  (3) 
a  technical  basis  for  equity  in  trade,  and  (4)  technical  services  to  promote  public  safety. 
The  Bureau  consists  of  the  Institute  for  Basic  Standards,  the  Institute  for  Materials 
Research,  the  Institute  for  Applied  Technology,  the  Center  for  Computer  Sciences  and 
Technology,  and  the  Office  for  Information  Programs. 

THE  INSTITUTE  FOR  BASIC  STANDARDS  provides  the  central  basis  within  the 
United  States  of  a  complete  and  consistent  system  of  physical  measurement;  coordinates 
that  system  with  measurement  systems  of  other  nations;  and  furnishes  essential  services 
leading  to  accurate  and  uniform  physical  measurements  throughout  the  Nation's  scien- 
tific community,  industry,  and  commerce.  The  Institute  consists  of  a  Center  for  Radia- 
tion Research,  an  Office  of  Measurement  Services  and  the  following  divisions: 

Applied  Mathematics — Electricity — Heat — Mechanics — Optical  Physics — Linac 
Radiation2 — Nuclear  Radiation2 — Applied  Radiation2 — Quantum  Electronics3 — 
Electromagnetics3 — Time  and  Frequency3 — Laboratory  Astrophysics3 — Cryo- 
genics3. 

THE  INSTITUTE  FOR  MATERIALS  RESEARCH  conducts  materials  research  lead- 
ing to  improved  methods  of  measurement,  standards,  and  data  on  the  properties  of 
well-characterized  materials  needed  by  industry,  commerce,  educational  institutions,  and 
Government;  provides  advisory  and  research  services  to  other  Government  agencies; 
and  develops,  produces,  and  distributes  standard  reference  materials.  The  Institute  con- 
sists of  the  Office  of  Standard  Reference  Materials  and  the  following  divisions: 

Analytical     Chemistry — Polymers — Metallurgy — Inorganic     Materials — Reactor 

Radiation — Physical  Chemistry. 

THE  INSTITUTE  FOR  APPLIED  TECHNOLOGY  provides  technical  services  to  pro- 
mote the  use  of  available  technology  and  to  facilitate  technological  innovation  in  indus- 
try and  Government;  cooperates  with  public  and  private  organizations  leading  to  the 
development  of  technological  standards  (including  mandatory  safety  standards),  codes 
and  methods  of  test;  and  provides  technical  advice  and  services  to  Government  agencies 
upon  request.  The  Institute  also  monitors  NBS  engineering  standards  activities  and 
provides  liaison  between  NBS  and  national  and  international  engineering  standards 
bodies.  The  Institute  consists  of  the  following  divisions  and  offices: 

Engineering  Standards  Services — Weights  and  Measures — Invention  and 
Innovation — Product  Evaluation  Technology — Building  Research — Electronic 
Technology — Technical  Analysis — Measurement  Engineering — Office  of  Fire 
Programs. 

THE  CENTER  FOR  COMPUTER  SCIENCES  AND  TECHNOLOGY  conducts  re- 
search and  provides  technical  services  designed  to  aid  Government  agencies  in  improv- 
ing cost  effectiveness  in  the  conduct  of  their  programs  through  the  selection,  acquisition, 
and  effective  utilization  of  automatic  data  processing  equipment;  and  serves  as  the  prin- 
cipal focus  within  the  executive  branch  for  the  development  of  Federal  standards  for 
automatic  data  processing  equipment,  techniques,  and  computer  languages.  The  Center 
consists  of  the  following  offices  and  divisions: 

Information  Processing  Standards — Computer  Information — Computer  Services 
— Systems  Development — Information  Processing  Technology. 

THE  OFFICE  FOR  INFORMATION  PROGRAMS  promotes  optimum  dissemination 
and  accessibility  of  scientific  information  generated  within  NBS  and  other  agencies  of 
the  Federal  Government;  promotes  the  development  of  the  National  Standard  Reference 
Data  System  and  a  system  of  information  analysis  centers  dealing  with  the  broader 
aspects  of  the  National  Measurement  System;  provides  appropriate  services  to  ensure 
that  the  NBS  staff  has  optimum  accessibility  to  the  scientific  information  of  the  world, 
and  directs  the  public  information  activities  of  the  Bureau.  The  Office  consists  of  the 
following  organizational  units: 

Office  of  Standard  Reference  Data — Office  of  Technical  Information  and 
Publications — Library — Office    of    International    Relations. 


1  Headquarters  and  Laboratories  at  Gaithersburg,  Maryland,  unless  otherwise  noted;  mailing  address  Washing- 
ton, D.C.  20234. 

2  Part  of  the  Center  for  Radiation  Research. 

3  Located  at  Boulder,  Colorado  80302. 
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OMNITAB  II  Segmentation  Structure 
for  the  SCOPE  Operating  System 

Sally  T.  Peavy  and  Ruth  N.  Varner 


OMNITAB  II  is  an  interpretive  system  developed  and  maintained  by  the 
National  Bureau  of  Standards  to  enable  scientists  to  use  a  large  computer 
easily,  effectively  and  accurately  for  numerical,  statistical  and  data 
analysis  without  prior  computer  experience.  The  system  is  as  machine 
independent  as  possible,  making  implementation  relatively  easy.  Since 
OMNITAB  II  has  a  large  memory  requirement,  segmentation  and  overlay  are 
virtually  essential. 

Overlay  procedures  are  dependent  upon  the  operating  system  of  the 
computer.  Changes  are  necessary  to  the  OMNITAB  II  program  when  the 
overlay  procedure  requires  specific  overlay  CALL  statements  to  external 
procedures  in  other  overlay  links.  This  Technical  Note  describes  a 
method  of  segmentation  and  overlay  for  a  particular  operating  system 
(CDC-6000  series).  The  method  can  readily  be  adapted  to  other  operating 
systems  with  modifications  to  the  control  statements. 

Key  words:  ANSI  FORTRAN,  general -purpose  computer  program, 
implementation  of  OMNITAB  II,  links,  OMNITAB  II,  overlay  procedures, 
SCOPE  operating  system,  segmentation. 


OMNITAB  II  is  an  interpretive  computing  system  which  permits  easy  use  of  a  computer 
without  prior  computing  experience.  The  system  was  developed  and  is  maintained  by  the 
National  Bureau  of  Standards  to  enable  scientists  to  use  a  computer  easily,  effectively  and 
accurately  for  numerical,  statistical  and  data  analysis  without  the  necessity  of  becoming 
professional  programmers.  OMNITAB  was  envisioned  by  Joseph  Hilsenrath  and  developed  by  him 
and  his  co-workers.  A  complete  description  of  the  first  version  of  OMNITAB  was  given  in 
Hilsenrath  et  al.  (1966).  Hogben  et  al.  (1970  and  1971)  documents  OMNITAB  II  version  5.0, 
the  present  version. 

The  OMNITAB  II  system  was  designed  with  the  systems  programmer  in  mind,  as  well  as  the 
user.  All  the  subprograms  in  the  system  are  written  in  the  American  National  Standards 
Institute  (ANSI)  FORTRAN.  Every  effort  has  been  made  to  produce  a  virtually  machine 
independent  program  which  could  be  easily  transported  and  implemented  on  any  large  computer. 
However,  a  minimum  number  of  modifications  are  necessary  in  the  implementation  of  the 
OMNITAB  II  system,  due  to  the  variability  of  hardware  and  software  features  of  computers . 
The  modifications  are  limited  to  a  small  number  of  subprograms  and  are  fully  documented  in 
Peavy,  Varner  and  Bremer  (1970). 


The  OMNITAB  II  version  5.0  system  requires  approximately  90K  storage  units  of  central 
memory,  assuming  each  real  (floating  point)  number  and  a  machine  instruction  occupy  one 
storage  unit.  The  OMNITAB  system  consists  of  one  main  program,  one -hundred- seventy- two 
procedure  subprograms  and  four  specification  subprograms.  To  make  the  program  operable  on  a 
smaller  computer  configuration,  the  OMNITAB  II  system  has  been  segmented  into  twenty-one 
segments  or  groups.  Certain  of  these  segments  may  overlay  each  other  (i.e.,  share  the  same 
storage  units  in  central  memory) .  This  reduces  the  storage  units  required  to  approximately 
49K,  plus  the  storage  units  needed  by  the  operating  system  library  subprograms  (i.e. ,  SIN, 
LOG,  I/O  routines,  etc.,  approximately  4K) .  The  amount  of  storage  needed  may  be  further 
reduced  by  decreasing  the  size  of  the  worksheet  and  scratch  areas  as  described  in  Peavy, 
Varner  and  Bremer  (1970) .  Segmentation  and  overlay  may  not  be  necessary  for  a  computer  with 
a  large  central  memory  if  the  OMNITAB  II  program  is  permitted  to  utilize  the  full  memory. 

Much  thought  has  been  put  into  the  segmentation  structure  of  the  OMNITAB  II  program  in 
order  to  minimize  the  swapping  of  segments  in  and  out  of  the  computer's  central  memory. 
Subprograms  which  read,  scan  and  interpret  the  OMNITAB  instructions  are  in  the  main  segment 
which  is  in  residence  at  all  times  during  execution  of  the  OMNITAB  system.  The  error 
checking  subroutines  are  also  included  in  this  segment  as  well  as  a  few  of  the  subprograms 
which  execute  the  most  often  used  instructions  (GENERATE,  INCREMENT,  RESET,  etc.)  as 
determined  from  statistics  gathered  over  a  three  month  period.  The  other  segments  contain 
subprograms  which  execute  related  instructions,  such  as  the  statistical,  input-output, 
matrix  and  array  operations.  In  order  to  maintain  a  minimum  number  of  subprograms  in  the 
main  segment,  it  was  sometimes  necessary  to  duplicate  a  subroutine  in  another  segment  under 
a  different  subprogram  name.  This  was  avoided  as  much  as  possible. 

The  overlay  procedure  is  very  dependent  upon  the  operating  system  of  the  computer. 
Since  standards  have  not  been  defined  in  regards  to  overlay,  the  method  of  overlaying  is  at 
the  discretion  of  the  systems  programmers  or  the  software  manufacturers .  Some  systems  make 
great  demands  on  the  user  or  programmer,  while  others  require  a  minimum  amount  of  effort. 
From  the  authors '  experience  and  knowledge  of  overlay  procedures ,  there  appear  to  be  three 
main  categories  for  third  generation  computers.  In  all  three  types  the  user  must  provide 
the  following  information  to  the  operating  system  (1)  how  the  subprograms  are  to  be  grouped, 
(2)  which  subprograms  comprise  the  main  segment  and  are  in  memory  at  all  times,  (3)  which 
groups  may  overlay  what  other  groups  and  (4)  what  other  groups  or  segments  are  necessary 
with  a  particular  group.  Furthermore,  some  overlay  procedures  have  restrictions  of  the  use 
of  the  FORTRAN  labeled  and  unlabeled  COMMON  statements ,  of  which  the  user  must  be  aware  to 
take  proper  action. 

One  type  of  overlay  procedure  places  no  restrictions  on  the  programmer  when  a  problem  is; 
being  programmed.  During  the  programming  stage  of  the  problem  no  thought  of  overlay  and 
segmentation  structure  are  necessary.  The  programmer  programs  the  problem  as  though  the 
whole  program  will  be  able  to  reside  in  the  computer  at  execution  time.  The  operating 
system  does  not  require  the  subprograms  to  be  arranged  in  the  order  in  which  they  are 
grouped  when  overlaid  at  execution  time.  Nor  is  it  necessary  to  precede  each  subprogram 
with  control  cards  for  the  operating  system.  The  only  prerequisite  is  that  at  execution 
time,  the  operating  system  must  be  provided  with  either  a  set  of  control  statements  or  a 
routine  outlining  the  segmentation  and  overlay  structure.  This  is  the  overlay  procedure 
that  was  used  in  implementing  OMNITAB  II  version  5.0  for  the  NBS  computer  configuration.  For! 
complete  details  see  Peavy,  Varner  and  Bremer  (1970). 

The  second  form  of  overlay  procedure  also  does  not  restrict  the  programmer  when  the> 
problem  is  being  programmed.  However,  before  execution  the  program  units  must  be  arranged 
in  order  of  the  overlay  setup.  Furthermore  system  control  cards  must  precede  each  of  the 
grouped  procedures  or  segments.  If  OMNITAB  II  version  5.0  is  being  implemented  on  a 
computer  whose  operating  system  allows  this  procedure  for  overlaying,  the  systems  programmer 
should  check  Peavy,  Varner  and  Bremer  (1970)  for  details  in  deck  setup. 

The  third  form  of  overlay  procedure  requires  the  programmer  to  keep  in  mind  that  the 
program  will  have  to  be  segmented  and  overlaid  because  of  its  size.   He  must  plan  the 


overlay  structure  and  links  at  the  same  time  he  is  programming  the  problem.  The  writer  must 
be  able  to  judge  the  amount  of  storage  units  required  by  each  subprogram  in  order  to  group 
them  properly.  If  the  programs  are  written  in  FORTRAN,  CALL  statements  to  bring  in  the 
proper  overlay  group  must  be  added  to  the  segment  which  references  external  procedures  in 
another  overlay  link.  These  statements  may  be  of  the  form  CALL  LINK  (NAME) ,  or  CALL  OVERLAY 
(al,  a2,  a3,  a4) ,  where  NAME  is  a  name  of  a  particular  segment  and  a's  are  arguments  to  the 
subroutine  OVERLAY.  Furthermore  at  execution  time,  the  program  units  must  be  organized  in  a 
specific  manner.  All  the  subprograms  in  a  particular  segment  must  be  grouped  together 
preceded  by  operating  system  control  statement (s) . 

This  paper  describes  the  changes  necessary  to  overlay  the  OMNITAB  II  program  under  a 
computer  operating  system  where  the  overlay  structure  is  of  the  third  type.  The  material  is 
divided  into  five  parts:  (I)  changes  necessary  to  specified  subprograms;  (II)  addition  of 
new  program  units;  (III)  the  deck  setup  organization;  (IV)  flow  chart  of  the  overlay 
structure  and;  (V)  changes  necessary  if  the  worksheet  and  scratch  area  sizes  are  changed. 
This  information  is  on  cards  and  appears  in  this  publication  as  a  computer  listing. 

Part  I  lists  the  changes  that  must  be  a  made  to  four  subprograms  BESSEL,  OMNIT,  ORTHO 
and  XECUTE.  The  three  letter  subprogram  identification  and  line  numbers  are  shown  on  the 
extreme  right,  as  in  Peavy,  Varner  and  Hogben  (1970).  The  changes  for  each  subprogram  are 
divided  into  two  parts.  The  first  set  of  corrections  are  to  replace  the  statements  of  the 
specified  subprogram  and  the  second  set  are  additions  to  be  inserted  in  the  proper  place. 
The  additions  should  be  made  so  that  the  numbers  are  in  ascending  order. 

Part  II  consists  of  twenty  new  program  units,  one  for  each  of  the  overlaying  segments. 
The  OMNITAB  II  program  is  segmented  into  twenty-one  segments.  The  first  segment  (main 
segment)  does  not  require  any  new  program  unit  since  it  contains  the  main  routine  and  is 
resident  in  memory  throughout  the  execution  of  the  OMNITAB  II  program.  The  first  two  lines 
of  each  program  unit  are  control  cards  for  one  particular  operating  system  (CDC- 6000  -  Scope 
system)  for  which  the  OMNITAB  II  system  has  been  implemented.  The  first  line  OVERLAY  (al, 
i a2,  a3),  indicates  the  start  of  a  new  segment.  The  argument  al  is  the  file  name  of  the 
segment,  a2  a  numerical  identifier  or  primary  level  number,  and  a3  the  secondary  level  of 
the  overlay  within  that  particular  file.  The  second  card  is  a  program  identification  for 
the  program  unit.  Each  program  unit  is  written  in  FORTRAN  and  consists  primarily  of  CALL 
statements  which  refer  to  subprograms  in  that  particular  segment. 

: 

The  deck  setup  organization  is  described  in  part  III.  The  segments  may  be  stored  on  a 
magnetic  tape  file,  disk  file,  drum  file  or  card  file.  For  convenience  the  twenty-one 
segments  are  labeled  Group  1  through  Group  21.  The  groups  should  be  in  the  order  listed 
(i.e.  in  ascending  order),  in  order  to  minimize  file  searching.  The  setup  for  each  group  is 
documented  in  detail.  Each  group  (except  Group  1)  must  begin  with  one  of  the  program  units 
described  in  part  II,  followed  by  the  OMNITAB  II  subprograms  listed  for  that  group.  The 
order  of  the  OMNITAB  II  subprograms  within  a  particular  group  is  insignificant. 


f  Part  TV  is  a  flow  diagram  of  the  overlay  structure.  The  approximate  size  of  each 
i  segment  is  also  indicated,  assuming  each  real  number  (floating  point)  and  machine 
;  instruction  occupy  one  storage  unit. 


It  was  necessary  to  include  some  of  the  labeled  common  areas  in  the  program  units 

described  in  part  II .  If  the  size  of  the  worksheet  and  scratch  areas  are  to  be  increased  or 

^decreased,  changes  must  be  made  in  some  of  the  program  units  as  well  as  in  the  subprograms 

i  indicated  in  Peavy,  Varner  and  Bremer  (1970).  Part  V  describes  the  changes  pertinent  to 

« particular  program  units  in  part  II . 

h  Although  the  write-up  is  for  a  particular  computer  and  computer  operating  system,  the 
|  deck  setup  can  be  easily  modified  for  other  operating  systems.  In  part  I  the  CALL 
!  statements  (CALL  OVERLAY  (al,  a2,  a3,  a4))  in  the  subprograms  BESSEL,  OMNIT,  ORTHO  and 
;  XECUTE  must  be  changed  to  the  proper  CALL  statements  of  the  specific  operating  system  used. 
s  It  may  be  necessary  to  modify  the  program  units  in  part  II  as  subprograms  rather  than  main 
^programs.  The  first  two  control  cards  of  each  program  unit  must  be  exchanged  for  the  proper 


control  statement (s)  of  the  operating  system.  Also  in  some  cases,  control  statement (s)  may 
be  required  for  part  III. 

The  authors  wish  to  thank  Mr.  B.  Scott  Miller  of  Control  Data  Corporation,  for  his 
assistance  in  programming  and  implementing  the  OMNITAB  II  program  on  the  SCOPE  operating 
system  and  in  editing  the  manuscript.  Special  thanks  goes  to  Shirley  Bremer  in  preparing 
and  editing  the  cards  for  listing. 
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PART  I 

CHANGES  NECESSARY  TO  SPECIFIC  SUBPROGRAMS 

SEGMENTING  OMNITAB  II  FOR  THE  CDC-6000  SERIES  UNDER  THE  SCOPE  SYSTEM 
THIS  SEGMENTATION  STRUCTURE  IS  FOR  OMNITAB  II  VERSION  5.00 

THE  FOLLOWING  SUBPROGRAMS  MUST  BE  CHANGED:  BESSEL,  OMNIT,  ORTHO  AND  XECUTE 

THE  CHANGES  THAT  ARE  NECESSARY  ARE  LISTED  FOR  EACH  OF  THE  SUBPROGRAMS 
ALONG  WITH  THE  APPROPRIATE  LINE  NOS  IN  COLS  73  THROUGH  79 

A.  CHANGES  FOR  SUBPROGRAM  BESSEL 

REPLACE  THE  APPROPRIATE  CARDS  (LINE  NOS.  IN  COLS  73-79) 
WITH  THE  FOLLOWING  CARDS 


DOUBLE  PRECISION  X,Y,E,P,Q,S,T,Z,DXEX,XEX  BES  90 

40    CALL  OVERLAY(4HWORK,3,l,6HRECALL)  BES  870 

90         CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES1130 

IF(M.NE.2)  GO  TO  145  BES1580 

145   IF(M.NE.l)  GO  TO  148  BES1660 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES1670 

ICDC=2  BES2310 

ICDC=3  BES2410 

330   DBEJX=Z  BES 2540 

335   IF(L2.NE.38)  IF(L2-39)338,460,338  BES2560 

CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES2570 

338   DO  340  N=1,K  BES2580 

ICDC=4  BES 2 740 

360   ICDC=5  BES2770 

ICDC=5  BES3020 

R(J)=DBEJX  BES3050 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES3280 

470   ICDC=1  BES3370 

AA(1)=DBEJX  BES3380 

INSERT  THE  FOLLOWING  CARDS  IN  THE  APPROPRIATE  PLACES 
(LINE  NOS.  IN  COLS  73-79) 

C    CDC  VERSION  5.00  BESSEL  BES  25 

COMMON/CDC/ICDC,ICDCK,ICDCN,DBEJX,BES2  BES  192 

DOUBLE  PRECISION  DBEJX,BES2  BES  194 

ICDC=1  BES  522 

ICDCK=N  BES  524 

ICDCN=M  BES  526 

R(J)=Y*DBEJX  BES  875 

X=Y*DBEJX  BES1135 

ICDC=1  BES 158 2 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES1584 

ICDC=2  BES1665 

148   Z=X*FDCOS(Y)  BES1675 

DBEJX=Z  BES2312 

CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES2314 

R(J)=BES2  BES 2 316 

ICDCK=K  BES2412 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES 24 14 

R(J)=BES2  BES2416 

IF(L2.NE.32)  GO  TO  335  BES2542 

ICDC=3  BES 2 544 


CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES2546 

GO  TO  338  BES2548 

ICDC=4  BES2565 

ICDCK=L  BES2742 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES2744 

ICDCK=L  BES2772 

CALL  OVERLAY(4HWORK,3,2,6HRECALL)  BES2774 

CALL  OVERLAY (4BORK, 3, 1,6HRECALL)  BES3024 

ICDCK=K  BES3276 

ICDCN=L  BES3277 

ICDC=6  BES3279 

ICDCK=0  BES3372 

ICDCN=7  BES3374 

CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES3376 

ICDCK=1  BES3382 

CALL  OVERLAY (4HWORK, 3, 1,6HRECALL)  BES3384 

AA(2)=DBEJX  BES3386 

B.  CHANGES  FOR  SUBPROGRAM  OMNIT 

REPLACE  THE  APPROPRIATE  CARDS  (LINE  NOS.  IN  COLS  73-79) 
WITH  THE  FOLLOWING  CARDS 

CALL  OVERLAY  (5HOMNIT,1,0,6HRECALL)  OMN  460 

CALL  OVERLAY (5HOMNIT,1,0,6HRECALL)  OMN  810 

65    ICDCK=LETSGO  OMN1030 

ICDC=5  OMN1170 

ICDC=1  OMN1273 

ICDC=6  OMN1320 

ICDC=8  OMN1840 

ICDC=7  OMN3190 

ICDC=9  OMN3400 

INSERT  THE  FOLLOWING  CARDS  IN  THE  APPROPRIATE  PLACES 
(LINE  NOS.  IN  COLS  73-79) 

C    VERSION  5.00  CDC  OVERLAY  OMNIT  CMN  25 

COMMON/CDC/  ICDC,ICDCK,ICDCN,DBEJK,BES2  OMN  185 

DOUBLE  PRECISION  DBEJX,BES2  .OMN  186 

ICDC=2  OMN  455 

50    ICDC=3  OMN  805 

ICDC=4  OMN1033 

CALL  OVERLAY (5HOMNIT,1,0,6HRECALL)  OMN1036 

LETSGO=ICDCK  OMN1038 

CALL  OVERLAY (5HOMN IT, 1 , 0 , 6HRECALL)  GMN1175 

95    ICDCK=K  OMN1272 

CALL- OVERLAY ( 5HOMNIT , 1 , 0 , 6HRECALL)  OMN1274 

CALL  OVERLAY (5H»1NIT,1,0,6HRECALL)  OMN1325 

CALL  OVERLAY (5HOMNIT,1,0,6HRECALL)  OMN1845 

CALL  OVERLAY (5HOMNIT,1,0,6HRECALL)  OMN3195 

ICDCK=J  OMN3404 

CALL  OVERLAY(5HOMNIT,1,0,6HRECALL)  OMN3406 

J=ICDCK  OMN3408 

C.  CHANGES  FOR  SUBPROGRAM  ORTHO 

REPLACE  THE  APPROPRIATE  CARDS  (LINE  NOS.  IN  COLS  73-79) 
WITH  THE  FOLLOWING  CARDS 

CALL  OVERLAY(6HSTATIS,l,4,6HRECALL)  ORT7110 


1590  CALL  OVERLAY(6HSTATIS,l,5,6HRECALL) 
1610  CALL  OVERLAY(6HSTATIS,l,3,6HRECALL) 
CALL  OVERLAY ( 6HSTATIS ,1,1, 6HRECALL) 
1650  CALL  OVERLAY(6HSTATIS,l,2,6HRECALL) 
C 


ORT7160 
ORT7190 
ORT7210 
ORT7470 
ORT7480 


INSERT  THE  FOLLOWING  CARDS  IN  THE  APPROPRIATE  PLACES 
(LINE  NOS.  IN  COLS  73-79) 

]     VERSION  5.00  CDC  OVERLAY  ORTHO  ORT  21 

COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX,   LXA,ND7,MD1,  THC,  ORT  22 

1IHT,YSUM,SU,ND9,FM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD  ORT  24 

D.  CHANGES  FOR  SUBPROGRAM  XECUTE 

REPLACE  THE  APPROPRIATE  CARDS  (LINE  NOS.  IN  COLS  73-79) 
WITH  THE  FOLLOWING  CARDS 


200 

300 

400 

600 

700 

C 

800 

C 

1303 

1305 

1306 

C 

1313 

1314 

1500 

1600 

1701 

1702 

1703 

1704 

1705 

1809 
1900 
2000 
2101 
2103 
2105 
2108 
2110 
2111 
2112 
2113 
2118 
2200 
2301 
2306 
2310 
2401 
2403 
2404 
2405 


ICDC=13 
ICDC=14 
ICDC=11 
ICDC=10 
GO  TO  400 

GO  TO  200 

ICDC=12 

CALL  OVERLAY  (5HOMNIT,2,0,6HRECALL) 

GO  TO  1305 


ICDC=1 

CALL  OVERLAY 
CALL  OVERLAY 
CALL  OVERLAY 
CALL  OVERLAY 
CALL  OVERLAY 
CALL  OVERLAY (6HMATRIX 
CALL  OVERLAY (6HMATRIX 
CALL  OVERLAY (6HMATRLX 
CALL  OVERLAY (6HMATRIX 
CALL  OVERLAY (6HMATRIX 
CALL  OVERLAY (4HWORK,l 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK,l 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK,l 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK,l 
CALL  OVERLAY (4HWORK,l 
CALL  OVERLAY (4HWORK,l 


(5HOMNIT ,2,0, 6HRECALL) 
(6HMATRIX , 1 , 0 , 6HRECALL) 
(6HMATRIX ,2,0, 6HRECALL) 
(6HMATRIX ,1,0, 6HRECALL) 
(6HMATRIX ,1,0, 6HRECALL) 
1,0,6HRECALL) 
1,0,6HRECALL) 
3,0,6HRECALL) 
1,0,6HRECALL) 
3,0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0,6HRECALL) 
0 ,6HRECALL) 
0,6HRECALL) 
0.6HRECALL) 


CALL  OVERLAY ( 5HOMNI T ,2,0, 6HRECALL) 


CALL  OVERLAY (6HSTATIS 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (6HSTATIS 
CALL  OVERLAY(6HSTATIS 
CALL  OVERLAY (4HWORK, 2 
CALL  OVERLAY (6HSTATIS 


0,6HRECALL) 

6HRECALL) 

6HRECALL) 

6HRECALL) 

0,6HRECALL) 

0,6HRECALL) 

6HRECALL) 

0,6HRECALL) 


XEC  270 
XEC  300 
XEC  330 
XEC  390 
XEC  420 
XEC  440 
XEC  450 
XEC  460 
XEC  720 
XEC  770 
XEC  800 
XEC  810 
XEC  990 
XEC1020 
XEC1470 
XEC1500 
XEC1550 
XEC1580 
XEC1610 
XEC1640 
XEC1670 
XEC1720 
XEC1750 
XEC1780 
XEC1810 
XEC1870 
XEC1920 
XEC1970 
XEC2040 
XEC2090 
XEC2120 
XEC2150 
XEC2180 
XEC2330 
XEC2390 
XEC2450 
XEC2560 
XEC2650 
XEC2760 
XEC2810 
XEC2840 
XEC2870 


2406 

2407 

C 

2408 

2409 

C 

2410 

2411 

2412 

C 

2413 

2415 

2504 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
4500 
5100 
5200 
5300 
5402 
5403 
5404 
5405 
5406 
5407 


CALL  OVERLAY ( 6HSTAT I S , 4 , 0 , 6HRECALL) 
GO  TO  2406 

CALL  OVERLAY (6HSTATIS ,2,0, 6HRECALL) 
GO  TO  2408 

CALL  OVERLAY ( 6HSTAT IS ,2,0, 6HRECALL) 
CALL  OVERLAY ( 6HSTATIS ,3,0, 6HRECALL) 
GO  TO  2411 

CALL  OVERLAY ( 6HMATRIX ,3,0, 6HRECALL) 
CALL  OVERLAY (5HOMNIT, 2, 0,6HRECALL) 
CALL  OVERLAY (4HWORK,1,0,6HRECALL) 
CALL  OVERLAY (4HWORK,1,0,6HRECALL) 
CALL  OVERLAY ( 6HMATRIX , 1 , 0 , 6HRECALL) 
CALL  OVERLAY ( 6HMATRIX ,2,0, 6HRECALL) 
CALL  OVERLAY(4HWORK,1,0,6HRECALL) 
CALL  OVERLAY (4HWORK,1,0 ,6HRECALL) 
CALL  OVERLAY ( 4HWORK , 3 , 0 , 6HRECALL) 
CALL  OVERLAY ( 5HOMNIT ,2,0, 6HRECALL) 
CALL  OVERLAY (4HWORK, 2, 0,6HRECALL) 
ICDC=15 

CALL  OVERLAY (6HMATRIX,1,0,6HRECALL) 
CALL  OVERLAY (6HMATRIX,1,0,6HRECALL) 
CALL  OVERLAY ( 6HMATRIX ,1,0, 6HRECALL) 
CALL  OVERLAY (4HWORK, 4, 0,6HRECALL) 
CALL  OVERLAY (4HWORK, 4, 0,6HRECALL) 
CALL  OVERLAY (4HWORK, 4, 0,6HRECALL) 
CALL  OVERLAY (4HWORK, 4, 0,6HRECALL) 
CALL  OVERLAY (4HVORJC, 4, 0,6HRECALL) 
CALL  OVERLAY (4HWORK, 4, 0,6HRECALL) 


XEC2900 
XEC2930 
XEC2940 
XEC2960 
XEC2990 
XEC3000 
XEC3020 
XEC3050 
XEC3080 
XEC3090 
XEC3110 
XEC3160 
XEC3200 
XEC3220 
XEC3250 
XEC3280 
XEC3310 
XEC3340 
XEC3370 
XEC3400 
XEC3430 
XEC3720 
XEC3860 
XEC3890 
XEC3920 
XEC4000 
XEC4030 
XEC4060 
XEC4090 
XEC4120 
XEC4150 


INSERT  THE  FOLLOWING  CARDS  IN  THE  APPROPRIATE  PLACES 
(LINE  NOS.    IN  COLS  73-79) 

]  VERSION     5.00     CDC  OVERLAY  XECUTE 

COMMON/CDC/ICDC, ICDCK, ICDCN,DBEJX,BES2 

DOUBLE  PRECISION  DBEJX,BES2 

CALL  OVERLAY ( 5HOMNIT ,1,0, 6HRECALL) 

CALL  OVERLAY   (5HOMNIT,1,0,6HRECALL) 

CALL  OVERLAY   (5HOMNIT,1,0,6HRECALL) 

CALL  OVERLAY   (5HOMNIT,1,0,6HRECALL) 

CALL  OVERLAY    (5HOMNIT,1,0 ,6HRECALL) 

ICDCK=3 

CALL  OVERLAY  (5HOMNIT,1,0,6HRECALL) 

CALL  OVERLAY (5HOMNIT,1,0,6HRECALL) 

********************************************************************** 


XEC 

25 

XEC 

45 

XEC 

46 

XEC 

275 

XEC 

305 

XEC 

335 

XEC 

395 

XEC 

725 

XEC 

992 

XEC 

994 

XEC3725 

********* 

PART  II 


ADDITION  OF  NEW  PROGRAM  UNITS 

THE  FOLLOWING  NEW  PROGRAMS  MUST  ALSO  BE  INCLUDED.  THESE  PROGRAMS  ARE 
LISTED  BELOW. 


OVERLAY  (OMNIT,1,0) 

PROGRAM  GRP2 

c 

VERSION  5.00  CDC 

OVERLAY 

GROUP  2 

GP2  20 

COMMON/CDC/  ICDC,ICDCK, 

,ICDCN,DBEJX,BES2 

GP2  50 

DOUBLE  PRECISION  DBEJX. 

,BES2 

GP2  55 

COMMON  /BLOCKB/  NSTMT,NSTMTX,NSTMIH,NCOM,LCQM,IOVFL,COM(2000) 

GP2  60 

GO  TO  (10,20,30,40, 

50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150), ICDC 

GP2  75 

10 

CALL  NOTEPR(ICDCK) 
GO  TO  1000 

GP2  80 
GP2  90 

20 

CALL  SETUP 

GP2  100 

30 

CALL  STMT(NSTMT) 
GO  TO  1000 

GP2  110 
GP2  120 

40 

CALL  XOMNIT(ICDCK) 
GO  TO  1000 

GP2  130 
GP2  140 

50 

CALL  XFORMT 
GO  TO  1000 

GP2  150 
GP2  160 

60 

CALL  XHEAD 
GO  TO  1000 

GP2  170 
GP2  180 

70 

CALL  SETQ 
GO  TO  1000 

GP2  190 
GP2  200 

80 

CALL  TAPOP 
GO  TO  1000 

GP2  210 
GP2  220 

90 

CALL  STORE  (ICDCK) 
GO  TO  1000 

GP2  230 
GP2  240 

100 

CALL  ABRIDG 
GO  TO  1000 

GP2  250 
GP2  260 

110 

CALL  APRINT 
GO  TO  1000 

GP2  270 
GP2  280 

120 

CALL  FIXFLO 
GO  TO  1000 

GP2  290 
GP2  300 

130 

CALL  PRINTX 
GO  TO  1000 

GP2  310 
GP2  320 

140 

CALL  PUNCH 
GO  TO  1000 

GP2  330 
GP2  340 

150 

CALL  TAPOP2 

GP2  350 

1000 

RETURN 
END 

OVERLAY (OMNIT, 2,0) 
PROGRAM  GRP3 

GP2  360 

GP2  370 

C 

VERSION  5.00   CDC 

:  OVERLAY 

GROUP  3 

GP3  20 

COMMON/BLOCKE/  NAME 

1(4), 

,L1,L2, 

, ISRFLG 

GP3  30 

IF (LI. EQ. 31)  GO  TO 

40 

GP3  40 

LF(L1.EQ.24.AND.L2. 

EQ.15)  GO 

TO  30 

GP3  50 

IF(L1.EQ.21.AND. (L2.EQ 

.18. OR, 

.L2.EQ.19))  GO  TO  20 

GP3  60 

IF(L2.EQ.14)  GO  TO 

10 

GP3  70 

CALL  PLOT 

GP3  80 

GO  TO  50 

GP3  90 

10 

CALL  FNEIC 
GO  TO  50 

GP3  100 
GP3  110 

20 

CALL  FNEC 
GO  TO  50 

GP3  120 
GP3  130 

30 

CALL  FNKC 

GP3  140 

GO  TO  50 

40 

CALL  THERMO 

50 

RETURN 
END 

OVERLAY (MATRIX, 1,0) 
PROGRAM  GRP4 

C 

VERSION  5.00 

CDC  OVERLAY  GROUP  4 

10 

COMMON/BLOCKE/  NAME (4 ) , LI , L2 , ISRFLG 

IF  (Ll-52)  10,90,100 

IF  (L1.EQ.51)  GO  TO  80 

IF  (L1.EQ.26)  GO  TO  70 

IF  (L1.EQ.18)  GO  TO  60 

IF  (L1.EQ.17)  GO  TO  (20,30,40,50) ,L2 

CALL  MOP 

GO  TO  120 

20 

CALL  MMULT 
GO  TO  120 

30 

CALL  MRAISE 
GO  TO  120 

40 

CALL  MKRON 
GO  TO  120 

50 

CALL  MTRIAN 
GO  TO  120 

60 

CALL  MATRIX 
GO  TO  120 

70 

CALL  EXPCON 
GO  TO  120 

80 

CALL  MXTX 
GO  TO  120 

90 

CALL  MDAMAD 
GO  TO  120 

100 

CALL  ARYVEC 

120 

RETURN 
END 

OVERLAY (MATRIX, 2,0) 

PROGRAM  GRP5 
C     VERSION  5.00  CDC  OVERLAY   GROUP  5 

COMMON/BLOCKE/  NAME (4) , LI , L2 , ISRFLG 

IF (LI. EQ. 27)  GO  TO  10 

CALL  INVERT 

GO  TO  20 
10    CALL  MPROP 
20    RETURN 

END 

OVERLAY (MATRIX, 3,0) 

PROGRAM  GRP6 
C     VERSION  5.00   CDC  OVERLAY    GROUP  6 

COMMON/BLOCKE/  NAME (4) , LI , L2 , ISRFLG 

IF(L1.EQ.24)  GO  TO  20 

IF(L1.EQ.18)  GO  TO  10 

CALL  MEIGEN 

GO  TO  30 
10    CALL  COALES 

GO  TO  30 
20    CALL  ONEWAY 
30    RETURN 

END 


10 


GP3 

150 

GP3 

160 

GP3 

170 

GP3 

180 

GP4 

20 

GP4 

30 

GP4 

40 

GP4 

50 

GP4 

60 

GP4 

70 

GP4 

80 

GP4 

90 

GP4 

100 

GP4 

110 

GP4 

120 

GP4 

130 

GP4 

140 

GP4 

150 

GP4 

160 

GP4 

170 

GP4 

180 

GP4 

190 

GP4 

200 

GP4 

210 

GP4 

220 

GP4 

230 

GP4 

240 

GP4 

250 

GP4 

260 

GP4 

270 

GP4 

280 

GP4  290 


GP5 

20 

GP5 

30 

GP5 

40 

GP5 

50 

GP5 

60 

GP5 

70 

GP5 

80 

GP5 

90 

GP6 

20 

GP6 

30 

GP6 

40 

GP6 

50 

GP6 

60 

GP6 

70 

GP6 

80 

GP6 

90 

GP6 

100 

GP6 

110 

GP6 

120 

OVERLAY(STATIS,1,0) 

PROGRAM  GRP7 

VERSION  5.00  CDC  OVERLAY  GROUP  7 

CALL  ORTHO 

RETURN 

END 

OVERLAY (STATIS, 1,1) 
PROGRAM  GRP8 

VERSION  5.00  CDC  OVERLAY  GROUP  8 

COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX,   IXA,ND7,MD1,IHC, 
1IHT,YSUM,SU,ND9,FM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD 
DIMENSION  B(120),IHC(4),IHT(8),IIRGS(100) 
DOUBLE  PRECISION  YSUM 
COMMON/ KFMT/KFMT  ( 100 ) 
EQUIVALENCE  (IIRGS,KFMT) 

CALL  OANOVA(YSUM,SU,ND9,FM,M,N,ND7,SSQ,IHC,NSU,B) 
RETURN 
END 

OVERLAY (STATIS, 1,2) 

PROGRAM  GPR9 

VERSION  5.00  CDC  OVERLAY  GROUP  9 

COMMON/ CDCORT/N,M,MK, NX, ND2,ND3,ND19,B,SSQ, IX,   IXA,ND7,MD1,IHC, 
1IHT ,  YSUM,  SU,ND9  ,FM,NSU,M1  ,ND18  ,ND17 ,  IND19S,  IND18S,  IND7S,  SS ,  SSOLD 

DIMENSION  B(120),IHC(4),THT(8),IIRGS(100) 

DOUBLE  PRECISION  YSUM 

COMMON/KFMT/KFMT (100 ) 

EQUIVALENCE  (IIRGS,KFMT) 

CALL  OCOEFF(Ml,N,ND18,ND17,IND19S,IND18S,IHC,B,IND7S,NSU,SS, SSOLD, GP9 
1YSUM) 

RETURN 

END 

OVERLAY (STATIS, 1,3) 
PROGRAM  GRP10 

VERSION  5.00   CDC  OVERLAY   GROUP  10  GP10  20 

COMM)N/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX,  IXA,ND7,MD1,IHC,  GP10  30 
lIFfT,YSUM,SU,ND9,FM,NSU,Ml,ND18,ND17,IND19S,IND18S,IND7S,SS, SSOLD  GP10  31 

DIMENSION  B(120),IHC(4),IHT(8),IIRGS(100)  GP10  40 

DOUBLE  PRECISION  YSUM  GP10  50 

COMMON/KFMT/KFMT (100)  GP10  60 

EQUIVALENCE  (IIRGS,KFMT)  GP10  70 

CALL  OCOVAR(M,ND7,MDl,IHC,B,IHT)  GP10  80 

RETURN  GP10  90 

END  GP10  95 

OVERLAY (STATIS, 1,4) 
PROGRAM  GRP11 

VERSION  5.00     CDC  OVERLAY  GROUP  11  GPU  20 

COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX,  IXA,ND7,MD1,IHC,   GPU  30 

1IHT, YSUM, SU,ND9, EM, NSU,M1,ND18,ND17,IND19S,IND18S,TND7S,SS, SSOLD     GP11  31 

DIMENSION  B(120),THC(4),THT(8),IIRGS(100)  GPU  40 

DOUBLE  PRECISION  YSUM  GPU  50 

COMMON/KBfr/KFMT(100)  GPU  60 

EQUIVALENCE    (IIRGS,KFMT)  GPU  70 

CALL  OPONE(N,M,MX,NX,ND2,ND3,ND19,B,SSQ,LX)  GPU  80 

RETURN  GPU  90 

END  GPU  95 
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GP7 

20 

GP7 

30 

GP7 

40 

GP7 

50 

GP8 

20 

GP8 

30 

GP8 

31 

GP8 

40 

GP8 

50 

GP8 

60 

GP8 

70 

GP8 

80 

GP8 

90 

GP8 

95 

GP9 

20 

GP9 

30 

GP9 

31 

GP9 

40 

GP9 

50 

GP9 

60 

GP9 

70 

GP9 

80 

GP9 

81 

GP9 

90 

GP9 

95 

OVERLAY (STATIS, 1,5) 
PROGRAM  GRP12 

C  VERSION  5.00       CDC  OVERLAY  GROUP  12  GP12  20 

COMMON/CDCORT/N,M,MK,NX,ND2,ND3,ND19,B,SSQ,IX,        IXA,ND7,MD1,IHC,  GP12  30 

1IHT,YSUM,SU,ND9,EM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD  GP12  31 

DIMENSION  B(120),IHC(4),IHT(8),IIRGS(100)  GP12  40 

DOUBLE  PRECISION  YSUM  GP12  50 

COMMON/KFMT/KEMT(100)  GP12  60 

EQUIVALENCE    (IIRGS,KFMT) , (B,IB)  GP12  70 

CALL  ORTPLT(ND19,ND2,N,SSQ,ND3,IB,IIRGS(LXA),IIRGS(2))  GP12  80 

RETURN  GP12  90 

END  GP12  95 

OVERLAY (STATIS, 2,0) 

PROGRAM  GRP13 
C     VERSION  5.00   CDC   OVERLAY    GROUP  13 

COMMON/BLOCKE/  NAME(4) ,L1,L2 , ISRFLG 

IF  (L2.EQ.10)  GO  TO  30 

IF  (L2.EQ.8.0R.L2.EQ.9)  GO  TO  20 

IF  (L2.EQ.5)  GO  TO  10 

CALL  STATIS 

GO  TO  40 
10    CALL  FPROB 

GO  TO  40 
20    CALL  HISTGM 

GO  TO  40 
30    CALL  FRDIST 
40    RETURN 

END 

OVERLAY (STATIS, 3,0) 

PROGRAM  GRP14 
C    VERSION  5.00   CDC   OVERLAY   GROUP  14 

COMMON/BLOCKE/  NAME (4 ), LI, L2, ISRFLG 

IF  (L2.EQ.ll.OR.L2.EQ.12)  GO  TO  10 

CALL  RANKS 

GO  TO  20 
10    CALL  CORREL 
20    RETURN 

END 

OVERLAY(STATIS,4,0) 
PROGRAM  GRP15 
C     VERSION  5.00   CDC   OVERLAY    GROUP  15 
COMMON/BLOCKE/  NAME ( 4 ) , LI , L2 , ISRFLG 
CALL  TWOWAY(L2) 
RETURN 
END  GP15  60 

OVERLAY  (WORK, 1,0) 
PROGRAM  GRP16 

C     VERSION  5.00  CDC  OVERLAY   GROUP  16  GP16  20 

COMMON/BLOCKE/  NAME (4 ), LI, L2, ISRFLG  GP16  30 

IF(L1.EQ.29)  GO  TO  110  GP16  35 

IF  (L1.EQ.28)  GO  TO  100  GP16  40 

IF(L1.EQ.25)   IF(L2-3)  80,80,90  GP16  50 

IF  (L1.EQ.19)  GO  TO  70  GP16  60 

IF(L2-2)  60,60,10  GP16  70 

10    LL2=L2-7  GP16  80 

GOTO  (20, 20, 120, 30, 40, 50, 20), LL2  GP16  90 
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GP13 

20 

GP13 

30 

GP13 

40 

GP13 

50 

GP13 

60 

GP13 

70 

GP13 

80 

GP13 

90 

GP13100 

GP13120 

GP13130 

GP13135 

GP13140 

GP13150 

GP14 

20 

GP14 

30 

GP14 

40 

GP14 

50 

GP14 

60 

GP14 

70 

GP14 

80 

GP14 

90 

GP15 

20 

GP15 

30 

GP15 

40 

GP15 

50 

20 

CALL  SORDER 
GO  TO  120 

30 

CALL  EXCHNG 
GO  TO  120 

40 

CALL  FLIP 
GO  TO  120 

50 

CALL  CHANGE 
GO  TO  120 

60 

CALL  PROROW 
GO  TO  120 

70 

CALL  ALLSUB 
GO  TO  120 

80 

CALL  SELECT 
GO  TO  120 

90 

IF(L2.EQ.5)  GO  TO 
CALL  INTERP 
GO  TO  120 

80 

100 

CALL  ITERAT 
GO  TO  120 

110 

CALL  CMSEPA 

120 

RETURN 
END 

GP 16110 
GP16120 
GP16130 
GP16140 
GP16150 
GP16160 
GP16170 
GP16180 
GP16190 
GP16200 
GP16210 
GP16220 
GP16230 
GP16240 
GP16245 
GP16250 
GP16260 
GP16270 
GP16280 
GP16290 
GP16300 
GP16310 


OVERLAY (WORK, 2,0) 

PROGRAM  GRP17 
C    VERSION  5.00   CDC  OVERLAY   GROUP  17 

COMMON/BLOCKE/  NAME ( 4) , LI , L2 , ISRPLG 

IF  (L1.EQ.32)  GO  TO  100 

IF  (L1.EQ.24)  GO  TO  90 

IF  (L1.EQ.23)  IF  (L2-6)  70,80,60 

IF  (L1.EQ.21)  IF  (L2-3)110,30,20 

IF(L1.EQ.20)  GO  TO  25 
20    IF  (L2-6)  40,40,50 
25    CALL  MSCROW 

GO  TO  110 
30    CALL  DEFINE 

GO  TO  110 
40    CALL  EXTREM 

GO  TO  110 
50    CALL  ERASE 

GO  TO  110 
60    CALL  PDMOTE 

GO  TO  110 
70    CALL  MISC2 

GO  TO  110 
80    CALL  MOVE 

GO  TO  110 
90    CALL  GQUAD 

GO  TO  110 
100   CALL  COMPLX 
110   RETURN 

END 


GP17  20 
GP17  30 
GP17  40 
GP17  45 
GP17  50 
GP17  70 
GP17  75 
GP17  80 
GP17  90 
GP17100 
GP17110 
GP17120 
GP17130 
GP17140 
GP17150 
GP17160 
GP17170 
GP17180 
GP17190 
GP17200 
GP17210 
GP17220 
GP17230 
GP17240 
GP17250 
GP17260 
GP17270 


OVERLAY (WORK, 3,0) 
PROGRAM  GRP18 
VERSION  5.00   CDC 
CALL  BESSEL 
RETURN 
END 


OVERLAY   GROUP  18 


GP18  20 
GP18  30 
GP18  40 
GP18  50 
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OVERLAY  (WORK, 3,1) 

PROGRAM  GRP19 
C    VERSION  5.00  CDC  OVERLAY   GROUP  19 

COMMON/ ABEKI/X,Y,P,Q,S,T 

DOUBLE  PRECISION  X,Y,P,Q,S,T,DBEJ,DBEJX,BES2,BINTJO 

COMMON/CDC/  ICDC , ICDCK , ICDCN,DBEJX , BES2 

COMMON/SCRAT/NS,NS2,A(13500) 

DOUBLE  PRECISION  W(100) 

EQUIVALENCE  (A (4001)  ,W) 

GOTO  (10, 20, 30, 40, 50), ICDC 
10    DBEJX=DBEJ (X , ICDCK , ICDCN) 

GO  TO  60 
20    BES2=BINTJO(X,W,DBEJX) 

GO  TO  60 
30    CALL  BEJN(0,W,DBEJX) 

GO  TO  60 
40    CALL  BEJN(1,W,DBEJX) 

GO  TO  60 
50    CALL  STRUVE(X,Y,DBEJX,W) 
60    RETURN 

END 


GP19  20 
GP19  30 
GP19  40 
GP19  50 
GP19  60 
GP19  70 
GP19  80 
GP19  90 
GP19100 
GP19110 
GP19120 
GP19130 
GP19140 
GP19150 
GP19160 
GP19170 
GP19180 
GP19190 
GP19200 


OVERLAY (WORK, 3,2) 

PROGRAM  GRP20 
C     VERSION  5.00  CDC  OVERLAY  GROUP  20 

COMMON/ ABEKI /X , Y , P , Q , S , T 

DOUBLE  PRECISION  X,Y,P,Q,S,T,DBEJX,BES2,COMELL 

COMMON/  CDC/  I CDC , ICDCK , ICDCN , DBEJX , BES  2 

COMMON/ SCRAT/NS,NS2,A(13500) 

DOUBLE  PRECISION  AA(1000) ,B(1000) 

EQUIVALENCE    (A(l) ,AA) , (A(2001) ,B) 

GOTO   (10, 20, 30, 40, 50, 60), ICDC 
10         CALL  CBEK 

GO  TO  70 
20         CALL  CBEI 

GO  TO  70 
30         BES  2=COMELL (X , ICDCK) 

GO  TO  70 
40         CALL  BEZONE(AA,B,l, ICDCK) 

GO  TO  70 
50         CALL  BEZERO(AA,B,l, ICDCK) 

GO  TO  70 
60         CALL  FOURIA(AA,B(l),B(2), ICDCK, ICDCN) 
70         RETURN 

END 


70 
80 


GP20  20 

GP20  30 

GP20  40 

GP20  50 

GP20  60 

GP20 

GP20 

GP20  90 

GP20100 

GP20110 

GP  20120 

GP20130 

GP20140 

GP20150 

GP20160 

GP20170 

GP20180 

GP20190 

GP20200 

GP20210 

GP20220 


OVERLAY (WORK, 4,0) 

PROGRAM  GRP21 
C  VERSION     5.00       CDC     OVERLAY         GROUP  21 

COMMON/BLOCKE/  NAME ( 4 ) , LI , L2 , ISRFLG 

L2A=L2-1 

GOTO   (10, 20, 30, 40, 50, 60), L2A 
10         CALL  DUMMYA 

GO  TO  70 
20         CALL  DUMMYB 

GO  TO  70 
30         CALL  DUMMYC 

GO  TO  70 
40         CALL  DUMMYD 

GO  TO  70 


GP21  20 
GP21  30 
GP21  40 
GP21  45 
GP21  50 
GP21  60 
GP21  70 
GP21  80 
GP21  90 
GP21100 
GP21110 
GP21120 
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50    CALL  DUMMYE  GP21130 

GO  TO  70  GP21140 

60    CALL  DUMMYF  GP21150 

70    RETURN  GP21160 

END  GP21170 

******************************************************************************* 

PART  III 

DECK  SETUP  ORGANIZATION 

IN  ORDER  TO  UTILIZE  THE  OVERLAY  SCHEME  DEVELOPED  THE  PROGRAMS  LISTED 
ABOVE  AND  THE  SUBPROGRAMS  OF  OMNITAB  II  MUST  BE  IN  THE  FOLLOWING 
ORDER: 

I  GROUP  1 

MUST  HAVE  THE  FOLLOWING  THREE  CARDS 
OVERLAY (OMNIT, 0,0) 

PROGRAM  OMNITAB  (INPUT, OUTPUT, PUNCH, TAPE5= INPUT, TAPE6=OUTPUT,TAPE3 
1=PUNCH,TAPE45) 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 

OMNSYM,  AARGS,ACCDIG,ADRESS,  AERR,  ARITH,  ASTER,  BEGIN, CHKCOL, 

CKIND,DIMENS,  ERROR, EXPAND,  FCOS,  FDCOS,  FDEXP,  FDLOG,FDPCON, 

FDSIN,FDSQRT,  FEXP,  FEXP2,  FLOG,FLOG10,  FSIN,  FSQRT,  FTANH, 

FUNCT,  GENER,  HEADS,   IFS,INFERR,  INPUT,  LI ST, LOCATE, LOOKUP, 

MTXCHK,  MXTXP,  NNAME,NONBLA,OMCONV,  OMNIT, OUTPUT,  PACK,  PAGE, 

PHYCON,PREPAK,  PROB,  READQ,  READX,REPINC,  RESET , RFORMT , RNDOWN , 

SET,SORTSM,   SPACE,     SYMV, VARCON, VECTOR, XECUTE,     XPND,   XSTOP, 

BLOCK , LBCONS , LOOKTB ,  FHYS I C 

II     GROUP  2 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (OMNIT, 1,0) 
THROUGH  THE  CARD 
END  GP2  370 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 

ABRIDG,APRINT,FIXFLO,NOTEPR,PRINTX,  PUNCH , RPRINT ,  SETQ,  SETUP 
STMT,  STORE,  TAPOP,TAPOP2,XFORMT,  XHEAD,XOMNIT 

III  GROUP  3 

PROGRAM  STARTING  WITH  CARD 
OVERLAY  (OMNIT, 2,0) 

THROUGH  THE  CARD 
END  GP3  180 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 

DHRND,ERRINT,  FNEC,  FNEIC,  FNKC,  PLOT,  RNJBK, THERMO 

IV  GROUP  4 

PROGRAM  STARTING  WITH  CARD 
OVERLAY  (MATRIX,  1,0) 

THROUGH  THE  CARD 
END  GP4  290 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
ARYVEC,EXPCON, MATRIX, MDAMAD,  MKRON,  MMULT,   MOP,MRAISE,MTRIAN, 
MXTX,STORMT,TRANSF 

V  GROUP  5 

PROGRAM  STARTING  WITH  CARD: 
OVERLAY (MATRIX, 2,0) 
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THROUGH  THE  CARD 
END  GP5  90 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
DETRNK,INVCHK,  INVERT,  MPROP,ORTHRV,PROCHK,  PVTRI ,  RCSUM,SKSYMV, 

SPINV 

VI  GROUP  6 

PROGRAM  STARTING  WITH  CARD 
OVERLAY  (MATRIX,  3,0) 

THROUGH  THE  CARD 
END  GP6  120 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
COALES,  FPPT,  HDLAG,MEIGEN, ONEWAY,  RANKO,TPCTPT 

VII  GROUP  7 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,1,0) 

THROUGH  THE  CARD 
END  GP7  50 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 

ORTHO 

VIII  GROUP  8 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,l,l) 

THROUGH  THE  CARD 
END  GP8  95 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
OANOVA 

IX  GROUP  9 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,l,2) 

THROUGH  THE  CARD 
END  GP9  95 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
OCOEFF 

X  GROUP  10 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (STATIS, 1,3) 

THROUGH  THE  CARD 
END  GP10  95 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
OCOVAR 

XI  GROUP  11 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,l,4) 

THROUGH  THE  CARD 
END  GPU  95 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 

OPONE 

XII  GROUP  12 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,l,5) 

THROUGH  THE  CARD 
END  GP12  95 
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FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
ORTPLT 


XIII  GROUP  13 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (STATIS, 2,0) 

THROUGH  THE  CARD 
END 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 

FPROB,FRDIST,FREQCY,HISTGM, STATIS 

XIV  GROUP  14 

PROGRAM  STARTING  WITH  CARD 
OVERLAY(STATIS,3,0) 

THROUGH  THE  CARD 
END 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
BJORCK,CORREL,CSPINV,INVCOR,  MIST,  RANKS  RANKX 

XV  GROUP  15 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (STATIS, 4,0) 

THROUGH  THE  CARD 
END 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
TWOWAY 


GP13150 


GP14  90 


GP15  60 


XVI  GROUP  16 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (WORK, 1,0) 

THROUGH  THE  CARD 
END  GP16310 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
ALLSUB, CHANGE, CMPARA,CMSEPA,EXCHNG,  FLIP,LNTERP,  INTRP , ITERAT , 
PROROW , SELECT , SORDER 

XVII  GROUP  17 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (WORK, 2,0) 

THROUGH  THE  CARD 
END  GP17270 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
COMPLX, DEFINE, ERASE, EXTREM,  GQUAD,  MSC2,  MOVE,MSCROW,PDMOTE 

XVIII  GROUP  18 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (WORK, 3,0) 

THROUGH  THE  CARD 
END  GP18  50 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAM: 
BESSEL 


XIX  GROUP  19 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (WORK, 3,1) 
THROUGH  THE  CARD 
END 
FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
BEJN,BINTJO,  DBEJ,STRUVE 


GP19200 
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XX  GROUP  20 

PROGRAM  STARTING  WITH  CARD 
OVERLAY (WORK, 3, 2) 

THROUGH  THE  CARD 
END  GP20220 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
BEZERO,BEZONE,     CBEI,     CBEK , COMELL , FOURI A 

XXI  GROUP  21 

PROGRAM  STARTING  WITH  CARD      . 
OVERLAY (WORK, 4,0) 

THROUGH  THE  CARD 
END  GP21170 

FOLLOWED  BY  THE  FOLLOWING  SUBPROGRAMS: 
DUMMYA,DUMMYB ,DUMMYC,DUMMYD,DUMMYE ,DUMMYF 

**************************************************************************** 

PART  TV 

FLOW  CHART  OF  OVERLAY  STRUCTURE 

GROUP  1  IS  RESIDENT  IN  MEMORY  AT  ALL  TIMES, 
CONTAINS  MOST  OFTEN  USED  ROUTINES,  SUBPROGRAMS 
NEEDED  BY  MORE  THAN  ONE  OF  THE  OTHER  GROUPS,  AND 
ALL  OF  LABELED  COMMON  (EXCLUDING  LABELED  COMMON 
FOR  BESSEL  SUBPROGRAMS) . 

ONLY  ONE  OF  THE  OTHER  GROUPS  (GROUP  2  THROUGH 
GROUP  7,  GROUP  13  THROUGH  GROUP  18  AND  GROUP  21) 
IS  IN  MEMORY  AT  A  PARTICULAR  TIME. 

GROUPS  7  AND  18  EACH  CONTAIN  SUB- 
SEGMENTS.  ONLY  ONE  OF  THE  SEGMENTS  (GROUP  8 
THROUGH  GROUP  12)  WILL  BE  IN  RESIDENCE  WITH 
GROUP  7.  EITHER  GROUP  19  OR  GROUP 
20  WILL  BE  LOADED  WITH  GROUP  18. 

OUTLINE  OF  SEGMENTATION 


GROUP 

1 

************************************** 

*  AARGS  ACCDIG  ADRESS  AERR   ARITH 

* 

*  ASTER  BEGIN 

CHKCOL  CKIND  DIMENS 

* 

*  ERROR  EXPAND 

FCOS   FDCOS  FDEXP 

* 

*  FDLOG  FDPCON 

FDSIN  FDSQRT  FEXP 

* 

*  FEXP2  FLOG 

FLOG10  FSIN   FSQRT 

* 

*  FTANH  FUNCT 

GENER  HEADS  IFS 

* 

*  INFERR  INPUT 

LIST   LOCATE  LOOKUP 

* 

*  MTXCHK  MXTXP 

NNAME  NONBLA 

* 

*  OMCONV  OMNIT 

OMNSYM  OUTPUT  PACK 

* 

*  PAGE   FHYCON 

PREPAK  PROB   READQ 

* 

*  READX  REPINC 

RESET  RFORMT  RNDOWN 

* 

*  SET    SORTSM 

SPACE  SYMV   VARCON 

* 

*  VECTOR  XECUTE 
* 

XPND   XSTOP 

* 

* 

*  PLUS  LIBRARY 
* 

FUNCTIONS  (SIN, ETC) 

* 

* 

18 


* 


*  ALL  OF  LABELED  COMMON       * 

*  * 

*  ABCDEF  BLOCKA  BLOCKB  BLOCKC  BLOCKD  * 

*  BLOCKE  BLOCKX  BLOCRC  CODE   CODETP  * 

*  CONLB2  CONSLB  CONSTS  DCONL2  DCONLB  * 

*  EMAT   HEADER  I CODE  ICODTP  KFMT  * 

*  NOTE   PCONST  PKSWT  QRS    SCRAT  * 

*  SPRV   TAPE 

A  * 

A 

* 

A 

A 

A  A 


*  THERE  ARE  4  BLOCK  DATA  PROCEDURES. 

*  THE  COMMENT  OR  2ND  CARD  HAS  THE 

*  LABEL  NAME.  THE  4  PROCEDURES  ARE 

A 

*  BLOCK     LBCONS  LOOKTB  PHYSIC 

A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


A 
A 
A 
A 
A 
A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAA AAAAAAAA AAAAAAAAAA AA AAA 

A        2*         1        *  1        *  1*1        1  1         * 

GROUP  *  2    1  *      1     *  1GROUP  *  3  1  *  1     1  1  GROUP  *  4 

A        1  A          1         A  1         A  1*1        1  1          * 

AAAAAAAAAA  1  A          1         A  1    AAAAAAAAAA  1*1  1  \          AAAAAAAAAA 

*  ABRIDG  *  1  *                1              *  1     *  DHRND  *  1     *  1              1  1       *  ARYVEC  * 

*  APRINT  *  1  *               1             *  1     *  ERRINT  *  1     *  1             1  1       *  EXPCON  * 

*  FIXFLO  *  1  *               1             *  1     *  FNEC  *  1     *  1             1  1       *  MATRIX  * 

*  NOTEPR  *  1  *                1              *  1     *  FNEIC  *  1     *  1              1  1       *  MDAMAD  * 

*  PRLNTX  *  1  *                1              *  1     *  FNKC  *  1     *  1              1  1       *  MKRON     * 

*  PUNCH     *  1  *                1              *  1     *  PLOT  *  1     *  1              1  1       *  MMULT     * 

*  RPRINT  *  1  *                1              *  1     *  RNJBK  *  1     *  1              1  l*MOP         * 

*  SETQ       *  1  *                1              *  1     *  THERMO  *  1     *  1              1  1       *  MRAISE  * 

A  SETUP   *  1  *         1        *  1   AAAAAAAAAA  1*1  \  1    *  MTRIAN  * 

*  STMT   *  1  *      1      *  1  1*1      1  1*  MXTX   * 

*  STORE  *  1  *      1     *  1  1*1     1  1*  STORMT  * 

*  TAPOP  *  1  *  GROUP  15*1  1  *  1GROUP  16  1   *  TRANSF  * 

A  TAPOP?  *1*         1        *  1  1*1        1  1    AAAAAAAAAA 

A  XFORMT  *  1  *    AAAAAAAAAA  A  1  1*1   AAAAAAAAAA  1 

*  XHEAD  *  1  *   *  DETRNK  *  *  1  1*1*  COALES  *  1 

*  XOMNIT  *  1  *   *  INVCHK  *  *  1  1*1*  FPPT   *  1 

AAAAAAAAAA  1  A    A  TNVERT  *  *  1  1*1*  HDIAG   *  1 

1  *   *  MPROP  *  *  1  1  *  1  *  MEIGEN  *  1 
a   a  ORTHRV  *  *  1  1*1*  ONEWAY  *  1 

1            *   *  PROCHK  *  *  1  1*1*  RANKO  *  1 

1            *   *  PVTRI  *  *  1  1*1*  TPCTPT  *  1 

1                   A     A  RC51M   *  *  1  1*1   AAAAAAAAAA  1 

1            *   *  SKSYMV  *  *  1  1*1  1 

1            *   *  SPINV  *  *  1  1*1  1 

1                  A     AAAAAAAAAA  A  1  1*1  1 

]_  A  *    \  1   * 1 

1                  *                  *  1  1*                 11 

1                  AAAAAAAA          A 1    AAAAAAAA  1  

1  AA  11*1  1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 

1GR0UP 
1 


* 

*********** 

* 


GROUP  *  7 
* 

********** 

*  ORTHO  * 
********** 

* 

* 

******************************* 


********** 

*  QANOVA  * 
********** 


GROUP 


* 

* 
* 
* 
* 
* 
* 
*  ]_]_ 


GROUP  *  9    * 
*     * 

**********  * 

*  OCOEFF  *  * 
**********  * 


GROUP 


* 
* 
* 

***** 
* 

10 


********** 

*  OCOVAR  * 
********** 


GROUP  *  12 


********** 

*  OPONE  * 
********** 


********** 

*  ORTPLT  * 
********** 


************************************* 
* 


* 
* 

* 
* 
* 
* 
* 
********** 

*  TWOWAY  * 
********** 


GROUP  *  15 


GROUP  1  18 

1 
****************** 

*  BESSEL     * 

*  LABELED  COMMON  * 

*  ABEKI      * 
****************** 

1 
1 


1 

1 

1 

1 

GROUP  1  16 

1 
********** 

*  ALLSUB  * 
CHANGE  * 
GMPARA  * 
CMSEPA  * 
EXCHNG  * 
FLIP 

*  INTERP 

*  INTRP 

*  ITERAT 

*  PROROW 

*  SELECT 

*  SORDER 
********** 


GROUP  1  19 

1 
********** 

*  BEJN   * 

*  BINTJO  * 

*  EBEJ   * 

*  STRUVE  * 
********** 


GROUP  1  20 

1 
********** 

*  BE2ER0  * 

*  BEZONE  * 

*  CBEI   * 

*  CBEK   * 

*  COMELL  * 

*  FOURIA  * 
********** 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

GROUP  *  13 
* 

********** 

*  FPROB  * 

*  FRDIST 

*  FREQCY 


*  HISTGM 

*  STATIS 


********** 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

GROUP  1  21 

1 
********** 

*  DUMMYA  * 

*  DUMMYB  * 

*  DUMMYC  * 

*  DUMMYD  * 

*  DUMMYE  * 

*  DUMMYF  * 
********** 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

GROUP  1  14 

1 
********** 


*  BJORCK 

*  CORREL 

*  CSPINV 

*  INVCOR 

*  MIST 

*  RANKS 

*  RANKX 


********** 


GROUP  1  17 

1 
********** 

*  COMPLX  * 

*  DEFINE 

*  ERASE 

*  EXTREM  * 

*  GQUAD 

*  MISC2 

*  MOVE 

*  M3CROW  * 

*  PDMOTE  * 
********** 
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APPROXIMATE  SIZE  OF  EACH  GROUP  ON  THE  NBS  COMPUTER 

THE  SIZE  AS  INDICATED  BELOW  ASSUMES  THAT  A  MACHINE  WORD 
IS  36  BITS  LONG,  A  FLOATING  POINT  NUMBER  USES  ONE  STORAGE 

UNIT,  AND  EACH  MACHINE  INSTRUCTION  IS  ONE  STORAGE  UNIT  LONG. 

I      GROUP  1    43000  STORAGE  UNITS 

A.  ROUTINES      12000 

B.  LABELED  COMMON  31000   (THIS  INCLUDES  A  WORK 

SHEET  OF  12500  STORAGE  UNITS) 

C.  NOT  COUNTED  BUT  MUST  BE  ADDED  ARE 

LIBRARY  FUNCTION  ROUTINES  (I.  E.  SIN, COS, ETC) , 
AND  INPUT  OUTPUT  ROUTINES.  (FOR  THE  NBS  UNIVAC 
1108  SYSTEM  THIS  IS  ABOUT  4500  STORAGE  UNITS) 

2900  STORAGE  UNITS 

3200  STORAGE  UNITS 

4100  STORAGE  UNITS 

4000  STORAGE  UNITS 

3700  STORAGE  UNITS 

4400  STORAGE  UNITS 

(THIS  GROUP  INCLUDES  GROUPS  8  THROUGH  12) 

3400  STORAGE  UNITS 

3800  STORAGE  UNITS 

4000  STORAGE  UNITS 


3000  STORAGE  UNITS 

3300  STORAGE  UNITS 

(THIS  GROUP  INCLUDES  GROUPS  19  AND  20) 

4400  STORAGE  UNITS 

(THIS  SEGMENT  IS  WHERE  THE  USER  MAY 
ADD  HIS  SUBROUTINES) 

******************************************************************************* 

PART  V 

CHANGES  NECESSARY  IF  WORK  SHEET  AND  SCRATCH  AREAS  ARE  TO  BE  MODIFIED 

IN  ADDITION  TO  THE  CHANGES  LISTED  ON  PAGES  24  THROUGH  26  IN  NBS  TECHNICAL 
NOTE  550,  THE  FOLLOWING  CHANGES  WILL  HAVE  TO  BE  MADE: 

LET  NSIZRC  BE  THE  SIZE  OF  WORK  SHEET  REQUIRED  AND 

NSIZR7=INTEGRAL  PART  OF  (NSIZRC-200)/4 

NSIZRC  AND  NSIZR7  MUST  BE  INTEGER  CONSTANTS  AND  NOT  VARIABLES. 


II 

GROUP  2 

III 

GROUP  3 

IV 

GROUP  4 

V 

GROUP  5 

VI 

GROUP  6 

VII 

GROUP  7 

VIII 

GROUP  13 

IX 

GROUP  14 

X 

GROUP  15 

XI 

GROUP  16 

XII 

GROUP  17 

XIII 

GROUP  18 

XIV 

GROUP  21 
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A.  THE  STATEMENTS 

DOUBLE  PRECISION  AA(1000) ,B(1000) ,W(100) 

EQUIVALENCE   (A(l)  ,AA) ,  (A(2001) ,B) , (A(4001) ,W) 

IF(NR.GT.IOOO)   L=1000  BES2640* 

IF(LNR.GT.IOOO)   LNR=1000  BES3230* 

MUST  BE  CHANGED  TO 

DOUBLE  PRECISION  AA(NSIZR7) ,B(NSIZR7) ,W(100) 

EQUIVALENCE  (A(l) ,AA) , (A(2*NSIZR7+1) ,B) , (A(4*NSIZR7+1) ,W) 

IFCNR.GT.NSIZR7)   L=NSIZR7  BES2640* 

IF(LNR.GR.NSIZR7)   LNR=NSIZR7  BES3230* 

IN  SUBROUTINE  BESSEL 

*   IDENTIFICATION  NUMBERS   IN  COLUMNS   73  THROUGH  79 

B.  THE  STATEMENTS 

COMMON/ SCRAT/  NS,NS2,A(13500) 
EQUIVALENCE  (A(4001) ,W) 

MUST  BE  CHANGED  TO 

COMMON/SCRAT/  NS ,NS2 ,A(NSIZRC+1000) 
EQUIVALENCE  (A(4*NSIZR7+1) ,W) 

IN  PROGRAM  UNIT  LABELED  PROGRAM  GRP19 

C.  THE  STATEMENTS 

COMMON/SCRAT/  NS,NS2,A(13500) 
DOUBLE  PRECISION  AA(1000) ,B(1000) 
EQUIVALENCE  (A(l) ,AA) , (A(2001) ,B) 

MUST  BE  CHANGED  TO 

COMMON/SCRAT/  NS,NS2,A(NSIZRC+1000) 
DOUBLE  PRECISION  AA(NSIZR7) ,B(NSIZR7) 
EQUIVALENCE  (A(l) ,AA) , (A(2*NSIZR7+1) ,B) 

IN  PROGRAM  UNIT  LABELED  PROGRAM  GRP20 
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